home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MOS / MOSSUPPO.D < prev    next >
Encoding:
Modula Definition  |  1992-02-14  |  610 b   |  25 lines
  1. DEFINITION MODULE MOSSupport;
  2.  
  3. (*
  4.  * Internes Modul!
  5.  * Sollte nur von MOS-Modulen importiert werden!
  6.  *)
  7.  
  8. PROCEDURE CallSuper;
  9.   (*
  10.    * Erhält auf A7 Pointer zur Subroutine, die dann im Supervisormodus
  11.    * (mithilfe GEMDOS.Super()) aufgerufen wird. Aufruf auch im Supervisor-
  12.    * Mode erlaubt.
  13.    * Liefert D0 zurück.
  14.    *)
  15.  
  16. PROCEDURE ToSuper;
  17. PROCEDURE ToUser;
  18.   (*
  19.    * ToSuper benutzt GEMDOS.Super, erwartet dazu auf dem Stack ein
  20.    * reserviertes LONGWORD, worin der alte SSP abgelegt wird (0 bedeutet,
  21.    * daß CPU schon vorher im Supervisor-Mode war).
  22.    *)
  23.  
  24. END MOSSupport.
  25.